File:  of Disk: Disks/MyPDP/m8-rka0-rkb0

(Source file text) 

---

INT,	0
	AND C177
	TAD (-33
	SNA		/ESCAPE ?
	 TAD (44-33	/YES, MAKE "$
	TAD (33
	DCA LPCHAR
	TAD LPCHAR
	SZA		//SKIP NULL'S
	 TAD M177
	SNA
	 JMP I PRINT	//IGNORE RUBOUTS
	TAD (377-232
	SNA
	 JMP LPEND	//^Z
	TAD (232-214
	SNA
	 JMP FF		//FORM FEED
	TAD M1		//(214-215
	SZA
	 TAD C3		//(215-212
	SNA
	 JMP CRLF	//LINE FEED
	IAC		//TAD (212-211
K7640,	SZA CLA
	 JMP NOTAB
LPTAB,	TAD C240
	JMS LPOUT	//PRINT SPACE
	ISZ POS
	TAD POS
	AND C7
K7740,	SZA CLA SMA
	 JMP LPTAB
	JMP I PRINT

C340,
NOTAB,	7340		/CLL STA
	DCA FFFLG	//FORMFEEDS ALLOWED FROM NOW
	TAD POS
LF,	TAD (-WIDTH
	SMA
	 JMP LFEXTR
	TAD (WIDTH+1	//INCREMENT POS
CRLF,	DCA POS		//RESET POS FOR CR AND LF
	TAD LPCHAR
IFZERO LOWER <		//IF YOUR LPT CAN'T HANDLE L.C.
	TAD K7640
	SMA
	 TAD K7740
	TAD C340	/ >
	JMS LPOUT
	JMP I PRINT

LFEXTR,
M177,	7601	/CLA
	TAD C212
	JMS LPOUT	//GIVE EXTRA LF
	JMP LF

FF,	ISZ FFFLG	//FORMFEED NECESSARY ?
	 JMP I PRINT	//NO
	JMP CRLF

LPOUT,	0
	DCA LPTMP
IFZERO DKC8 <AC0001
IFZERO KL8E <6665	/SET INTERRUPT ENABLE >>
IFNZRO KL8E <6655	/SET INTERRUPT ENABLE >
IFNZRO DKC8 <6575	/SET INTERRUPT ENABLE >
	JMS MONITOR
	   WAIT
	   LPT
	TAD LPTMP
IFZERO DKC8 <6666	/ >
IFNZRO DKC8 <CMA
	6574
	6577		/ >
	CLA
	JMP I LPOUT

LPWC,	0
POS,	0
FFFLG,	0
LPTMP,	0

PAGE	/END IFNZRO NSPOOL >
$

---